home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / -archivi / -recent2 / amicad_2.00.lha / AmiCAD / ARexx / Calc.AmiCAD < prev    next >
Text File  |  1999-02-07  |  653b  |  16 lines
  1. /* calculatrice en virgule flottante */
  2. /* Chez Corbin, 7 février 1999, version 1.00 */
  3.  
  4. options results
  5. if ~show('L','rexxmathlib.library') then
  6.    call addlib('rexxmathlib.library',0,-30)
  7.  
  8. cr='0a'x
  9. p='"Effectuez la saisie du'cr'calcul à effectuer.'cr'Opérateurs : * / + - // ** %'cr'Fonctions : abs acos acosh asin asinh'cr'atan atanh ceil cos cosh cot cotan'cr'csc exp fabs fact floor int'cr'ln log10 nint pow(x,y) sec'cr'sin sinh sqrt tan tanh"'
  10. 'ASKTEXT('p',"")'
  11. calcul=result
  12. if calcul="" then exit
  13. resultat = calc.rexx(calcul)
  14. 'REQUEST("'calcul' = 'resultat||cr'Voulez-vous écrire'cr'ce résultat ?")'
  15. if result="1" then 'WRITE("'resultat'",0,0)'
  16.